Object subclass: #RecursiveInorderTraversal
	instanceVariableNames: ''
	classVariableNames: ''
	poolDictionaries: ''
	category: 'BinTree'!

"-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- "!

RecursiveInorderTraversal class
	instanceVariableNames: ''!

!RecursiveInorderTraversal class methodsFor: 'as yet unclassified' stamp: 'RGB 3/8/2011 14:23'!
print:theTree
	"print a tree using inorder traversal"
	((theTree leftKid) notNil) ifTrue: [ RecursiveInorderTraversal print:(theTree leftKid). ].
	Transcript show: (theTree label); show: ' '.
	((theTree rightKid) notNil) ifTrue: [ RecursiveInorderTraversal print:(theTree rightKid). ].! !
